Visual Basic 6 - (VBKEY)__("{ENTER}")

Forum - Visual Basic 6 - (VBKEY)__("{ENTER}")

Pagine: [ 1 2 3 4 5 ]

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 8:25
Lunedì, 18/05/2009

Salve a tutti....
Ho un problema che no riesco a capire....
Insomma...vorrei che questo codice digitando i relativi tasti F1 F12, non mi si
aprano le relative associazioni ad essi..
Esempio: F1 apre il blocco note..e cosi via, e vorre abbilitare i tasti da F1 ad F2
ed il comando ({enter}) con delle checkbox...
insomma spunto la checkbox relativa al tasto F1 e me lo abilita
spunto la seconda checkbox e mi abilita l ' invio della frase cioè ("{enter}")
Posto il codice:

Codice sorgente - presumibilmente VB.NET

Private Sub Timer1_Timer()
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF2) Then
SendKeys (Text2.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF3) Then
SendKeys (Text3.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF4) Then
SendKeys (Text4.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF5) Then
SendKeys (Text5.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF6) Then
SendKeys (Text6.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF7) Then
SendKeys (Text7.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF8) Then
SendKeys (Text8.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF9) Then
SendKeys (Text9.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF10) Then
SendKeys (Text10.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF11) Then
SendKeys (Text11.Text) + ("{enter}")
End If
 
If GetKeyPress(vbKeyF12) Then
SendKeys (Text12.Text) + ("{enter}")
End If
 
End Sub
 
Private Sub Form_Load()
 
Timer1.Interval = "100"
 
End Sub

Ultima modifica effettuata da AMIGOS il 01/06/2009 alle 23:53

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 16:48
Lunedì, 18/05/2009

non ho capito... tu vuoi disabilitare dei tasti (esterni al tuo progr) e quando sono premuti viene simulata la pressione di enter?

se si a quale scopo?

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 18:39
Lunedì, 18/05/2009

Piu o meno...
dovrei abilitare il tast1 da F1 ad F12 con delle chekbox
ed abilitare la funzione enter come i tasti F1-F12

u ' altra cosa è ... che, se provo il codice postato....mi fa tutto il necessario
pero vorrei abilitarli con delle chek..
e se lo provo cosi..quando clicco Esempio: su F1 mi si apre il blocco note..
e dovrei anche disabilitare questi comandi appropriati dei tasti in questione
insomma: clicco su F1 o Altri e no mi si devono aprire le finestrine tipo il blocco
note di F1 cosi per tutti gli altri

il programma lo devo usare per l'invio di frasi in una chat, tipo ciao amigos...per non
riscrivere sempre gli emotion..... e i salve o ciao a tutta la chat.....

io avevo un programma che faceva tutto cio che ho descritto...

Cliccavo sulla chek di F1 o altri, e mi abilitiva il rispettivo... tasto e cosi con gli altri..
Spuntavo la chek di enter e mi abilitava l'invio della frase in chat...
Senza abilitare enter... la scriveva soltanto sulla casella di testo della chat senza inviarmela...

e no mi apriva il blocco note sull' esempio F1... e cosi col resto dei tasti sino ad F12

Ultima modifica effettuata da AMIGOS il 18/05/2009 alle 18:52

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 19:41
Lunedì, 18/05/2009

ma le checkbox sono solo 2 che attivano e disattivano il tuo prog o sono tante quante F1, F2, ecc... ??

comunque basta che prima di:
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If

metti un if... del tipo:
if check1.value = vbchecked then
...
end if

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 21:04
Lunedì, 18/05/2009

In tutto sono 24 chekbox 12 textbox
le 12 checkbox che attivano i tasti F1 a F12
e 12 checkbox che attivano l ' enter

identico da habboflooder ....

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 21:20
Lunedì, 18/05/2009

O messa quella if prima del codice in questione... ma mi parte anche se spunto o no la chek

e credo che il problema sia anche nel timer...che spuntanto la chek...si deve attivare
il anche il timer boo.... comunque ti posto il codice che ho scritto..

Codice sorgente - presumibilmente VB.NET

Private Declare Function GetKeyPress Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer
 
 
Private Sub Form_Load()
Timer1.Interval = "100"
End Sub
 
Private Sub Timer1_Timer()
If Check1.Value = vbChecked Then
End If
If GetKeyPress(vbKeyF1) Then
SendKeys (Text1.Text) + ("{enter}")
End If
End Sub

la check e come se non esistesse.... poi si apre sempre la finestra del blocco note
se clicco su F1.... è questo il problema più grande..... se vedi habboflooder...che è
sempre scritto in vb6...questo problema non lo da.... poi sembra un codice semplice ?
ma davvero non ci si arriva GrG....

Ultima modifica effettuata da AMIGOS il 01/06/2009 alle 23:57

GrG (Member)
Guru^2

Messaggi: 3430
Iscritto: 21/08/2007

Postato alle 21:31
Lunedì, 18/05/2009

ti commento il codice che hai scritto... spero ti renderai conto da solo dell'errore:

Codice sorgente - presumibilmente VB.NET

Private Sub Form_Load() 'quando si avvia il form
Timer1.Interval = "100" 'ogni 100 millisecondi esegui la sub del timer
End Sub
 
Private Sub Timer1_Timer() 'sub del timer
If Check1.Value = vbChecked Then 'se la checkbox è "selezionata"
Timer1.enalbled = True 'attiva il timer (che è già attivo, altrimenti non si potrebbe eseguire questo codice...)
End If
If GetKeyPress(vbKeyF1) Then 'eccetera eccetera
SendKeys (Text1.Text) + ("{enter}")
End If
End Sub

Comunque credo che tu stia agli inizi, ed è forse meglio che ti leggi un bel manuale...

p.s. non conosco habboflooder...

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 21:42
Lunedì, 18/05/2009

si sono agli inizi evvero....
ma o l intuito per capire le cose..
ma sai gmg.... il codice che ti ho scritto....no so se lo hai percepito...
il problema difficile anche per chi programma e quello che ti ho citato prima..
se io clicco con quel codice F1 si apre il blocco note e no scrive la frase sul blocco note
capisci adesso..... poi il comando enter..cio l invio effettivo della frase... no la scrittura di quello che digito nella textbox... anche quello dovrei attivare....
e ho domandato in molti forum ma nessuno a capito il vero meccanismo del mio codice o
credo no ne sia stato all altezza.... alla check ci sono arrivato prima...ma ho tolto
il timer1.enabled.... comunque se puoi darmi una mano sul mio problema ti ringrazio....
e grazie per il tuo tempo :k:

AMIGOS (Normal User)
Rookie

Messaggi: 49
Iscritto: 18/05/2009

Postato alle 21:49
Lunedì, 18/05/2009

a scusa se no te lo detto gmg...ma il codice no funziona cosi come me lo hai postato tu...
te lo detto gia..il timer attivabile in true o in false...no serve li..... provalo
e il codice è in vb6 quello postato da te...no in vb.net...
madonna facciamo capricci stasera....

Pagine: [ 1 2 3 4 5 ]